home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / vesa122 / tstvesa.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-12-04  |  420 b   |  15 lines
  1. Program TestVESA;
  2. Uses VESA, Crt;
  3.  
  4. (* Just a very simple test of the unit that draws a box and a circle *)
  5. (* it just illustrates how to use the unit!                          *)
  6. Begin
  7.   FadeCurs;
  8.   ChangeMode ($101);    (* 640x480x256 *)
  9.   LoadDefaultPalette;
  10.   ClearScreen (LightGray);
  11.   FillRect (0, 0, 300, 300, Red);
  12.   Circle (300, 200, 100, Yellow);
  13.   Line (100, 200, 300, 400, Blue);
  14.   Readkey;
  15. End.